Top 10k strings from Run Your Own League (1984)(Silicon Joy).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
12 ;"REPLY ""y"" OR ""n""" 4 h(h)=h(h)-1 4 g(h)=g(h)-w: 4 d(h)=d(h)-1 4 );';"TRY AGAIN": 4 "***";b$(n);" FOR ";j(m,2 3 ;';"IS THIS CORRECT?";';'; 3 ;"INPUT REQUIRED LETTER"; 3 );'" POINTS ";j(m,4 3 ';"MATCH IS :-";'; 3 ';"INPUT IS NOT A POSITIVE";';"INTEGER """;i$;"""";';"TRY AGAIN": 2 u$="DREW": 2 h(h)=h(h)+1 2 g(h)=g(h)-d 2 g(h)=g(h)+w: 2 g(h)=g(h)+d 2 g(g)=g(g)-ll 2 g(e)=g(e)-ll 2 f$(g,u)-124 2 f$(g,u)+124 2 f$(e,u)-62 2 f$(e,u)+62 2 d(h)=d(h)+1 2 b$(t);" NO GAME" 2 ;';"WEEK NUMBER TOO LARGE";';"MAXIMUM VALUE IS ";b;';"TRY AGAIN": 2 ;"VERIFY O.K. PRESS ANY KEY TO": 2 ;"SAVE O.K. PRESS ANY KEY TO"; 2 ;"INPUT REQUIRED NUMBER"; 2 ;"CONTINUE "; 2 ;"CONTINUE " 2 );'" AGAINST ";j(m,3 2 ';';" ";a$ 2 ';"SCORE TOO LARGE - MAXIMUM OF";';"254 ALLOWED """;i$;"""";';"TRY AGAIN": 2 "________________________________" 2 "MATCH AWARDED TO ";b$(g) 2 "MATCH AWARDED TO ";b$(e): 2 "INPUT FIXTURE NUMBER": 2 "FIXTURE NUMBER TOO LARGE";';"MAXIMUM NUMBER IS "; 2 "***";b$(n);" AGAINST ";j(m,3 2 " *TEAM REMOVED FROM LEAGUE" 2 " ";b$(t);" NO GAME" 2 " NONE" 2 " ";r;" ";s 1 yy;" ";b$(n);" v ";b$(g): 1 yy;" ";b$(n);" v ";b$(g) 1 yy;" ";b$(m);" v ";b$(e) 1 yy;" ";b$(e);" v ";b$(m) 1 yy;" ";b$(n);" v ";b$(g): 1 yy;" ";b$(n);" v ";b$(g) 1 yy;" ";b$(m);" v ";b$(e) 1 yy;" ";b$(e);" v ";b$(m) 1 y;" ";b$(n);" v ";b$(e) 1 y;" ";b$(m);" v ";b$(e) 1 y;" ";b$(e);" v ";b$(n) 1 y;" ";b$(e);" v ";b$(m) 1 y;" ";b$(n);" v ";b$(e) 1 y;" ";b$(m);" v ";b$(e) 1 y;" ";b$(e);" v ";b$(n) 1 y;" ";b$(e);" v ";b$(m) 1 x$="DEDUCTED FROM" 1 x$="ADDED TO": 1 p;" - ";x$;" TOTAL FOR";';b$(e): 1 p$(g,n) ): 1 nn;" ";b$(g);t$;" ";u$;" AWARD" 1 nn;" ";b$(g);t$;" ";"CANCELLED": 1 nn;" ";b$(g);t$;" ";u$;" AWARD" 1 nn;" ";b$(g);t$;" ";"CANCELLED": 1 n;" NO MATCH": 1 n;" ";b$(g);t$;" NOT PLAYED 1 n;" ";b$(g);t$;" ";u$;" ";r$;" ";s$ 1 n;" NO MATCH": 1 n;" ";b$(n) 1 n;" ";b$(g);t$;" NOT PLAYED 1 n;" ";b$(g);t$;" ";u$;" ";r$;" ";s$ 1 n;" ";b$(n) 1 n+b;" NO MATCH": 1 n+b;" ";b$(g);t$;" NOT PLAYED": 1 n+b;" ";b$(g);t$;" ";u$;" ";r$;" ";s$ 1 n+b;" NO MATCH": 1 n+b;" ";b$(g);t$;" NOT PLAYED": 1 n+b;" ";b$(g);t$;" ";u$;" ";r$;" ";s$ 1 m;" NO MATCH": 1 m;" ";b$(e);" (HOME)": 1 m;" ";b$(e);" (AWAY)" 1 m;" NO MATCH": 1 m;" ";b$(e);" (HOME)": 1 m;" ";b$(e);" (AWAY)" 1 m+b;" NO MATCH": 1 m+b;" ";b$(e);" (HOME)" 1 m+b;" ";b$(e);" (AWAY)": 1 m+b;" NO MATCH": 1 m+b;" ";b$(e);" (HOME)" 1 m+b;" ";b$(e);" (AWAY)": 1 k=e(f)-f(f) 1 j=e(n)-f(n) 1 h(g)=h(g)+1 1 h(e)=h(e)+1 1 g(g)=g(g)+w 1 g(g)=g(g)+ll 1 g(e)=g(e)-p 1 g(e)=g(e)+w: 1 g(e)=g(e)+p: 1 g(e)=g(e)+ll 1 f(h)=f(h)-q 1 f(h)=f(h)-p 1 f(h)=f(h)+s 1 f(h)=f(h)+r 1 f$(n,s)=c$(n) 1 f$(n,m)+31 1 f$(n,f)=f$(n,s): 1 f$(h,w)-31 1 f$(e,w)+31 1 e(h)=e(h)-q: 1 e(h)=e(h)-p: 1 e(h)=e(h)+s: 1 e(h)=e(h)+r: 1 d(g)=d(g)+1 1 d(e)=d(e)+1 1 c(m)=c(m+1 1 c$(n)=f$(n,f): 1 b$(n);" ";h$(1 1 ________________________________" 1 RUNYOUROWNk 1 Created with Ramsoft MakeTZX 1 Copyright Silicon Joy 1984" 1 ;b$(n);" v ";b$(g) 1 ;b$(e);" v ";b$(g);';': 1 ;b$(e);" BEING DELETED" 1 ;a;" TEAMS"; 1 ;';';';';"j) TO PRINT ALL SCORED MATCHES ";';';"k) TO AMEND POINTS ";';';"l) TO MARK GAME PLAYED/CANCELLED";';';"m) TO CANCEL MATCH SCORE ";';';"n) TO REMOVE TEAM FROM LEAGUE ";';';"o) TO UNCANCEL A MATCH ";';';"p) TO RETURN TO UPDATE MENU "; 1 ;';';';';"a) FOR ONE WEEKS FIXTURES ";';';';"b) FOR ALL WEEKS FIXTURES ";';';';"c) FOR ONE TEAMS FIXTURES ";';';';"d) FOR ALL TEAMS FIXTURES ";';';';"e) TO RETURN TO SET UP MENU "; 1 ;';';';"a) TO UPDATE SCORES ";';';"b) TO UPDATE LEAGUE TABLE " 1 ;';';';"1) TO SAVE THE PROGRAM " 1 ;';';"TEAM 1 ;';';"INPUT NUMBER OF POINTS TO BE";';x$;" TOTAL": 1 ;';'"NAME TOO LONG - MAXIMUM OF TEN CHARACTERS ALLOWED";';'"TRY AGAIN": 1 ;';"TRY AGAIN": 1 ;';"FIXTURE WEEK TOO LARGE";';"MAXIMUM VALUE IS ";b;';"TRY AGAIN": 1 ;';"FIXTURE NUMBER TO LARGE";';"MAXIMUM VALUE IS "; 1 ;"v ";b$(g) 1 ;"i) TO SAVE THE PROGRAM "; 1 ;"g) TO PRINT A TEAMS RESULTS ";';';"h) FOR A CONTINUATION MENU " 1 ;"e) TO PRINT A RESULT ON SCREEN ";';';"f) TO PRINT A WEEKS RESULTS " 1 ;"c) TO LIST OUTSTANDING FIXTURES ";';';"d) TO LIST TEAMS IN DIVISION " 1 ;"and";';';"WEEKS ";f+b;" and ";s+b;" SWOPPED"; 1 ;"WEEKS ";f;" and ";s;" SWOPPED"; 1 ;"WEEK ";w; 1 ;"UPDATE MENU"; 1 ;"TO CONTINUE PRESS ENTER KEY" 1 ;"SET UP MENU"; 1 ;"REPLY ""y"" OR ""n""": 1 ;"NOTE FIXTURE WEEK MUST BE FOR THE FIRST HALF OF THE SEASON "; 1 ;"NOTE INTERCHANGING FIXTURE WEEKS HAS A DOUBLE EFFECT SINCE THE FIXTURE WEEKS FOR THE RETURN MATCHES WILL ALSO BE SWOPPED. "; 1 ;"NO OF POINTS FOR A WIN IS ";w 1 ;"NO OF POINTS FOR A LOSS IS ";ll; 1 ;"NO OF POINTS FOR A DRAW IS ";d; 1 ;"MATCH NOT YET PLAYED"; 1 ;"MATCH CANCELLED": 1 ;"LEAGUE TABLE BEING SET UP"; 1 ;"LEAGUE TABLE BEING UPDATED"; 1 ;"INPUT NO. OF TEAMS IN DIVISION": 1 ;"INPUT MATCH SCORE FOR - " 1 ;"IF VERIFY FAILS TYPE ""GOTO 3660""AND PRESS ""ENTER"" KEY "; 1 ;"IF VERIFY FAILS TYPE ""GOTO 2160""AND PRESS ""ENTER"" KEY "; 1 ;"IF SAVE FAILS TYPE ""GOTO 3660""";';"AND PRESS ""ENTER"" KEY "; 1 ;"IF SAVE FAILS TYPE ""GOTO 2160"" AND PRESS ""ENTER"" KEY " 1 ;"HOME & AWAY MATCHES CHANGED FOR";';'; 1 ;"FIXTURES ARE BEING GENERATED"; 1 ;"FIXTURE PRINT MENU"; 1 ;"FIXTURE NUMBER ";f;';'; 1 ;"CONTINUATION MENU"; 1 ;"ALL MATCHES FOR THIS WEEK HAVEBEEN SCORED!!"; 1 ;"3) TO SWOP HOME & AWAY MATCHES ";';';';"4) FOR FIXTURE PRINT MENU ";';';';"5) TO CONTINUE "; 1 ;"3) FOR FIXTURE PRINT MENU ";';';';"4) TO CONTINUE "; 1 ;"2) TO INTERCHANGE FIXTURE WEEKS " 1 ;"*TEAM REMOVED FROM LEAGUE" 1 ;"(CANCELLED)" 1 ;"""c"" FOR NEITHER";'; 1 ;"""b"" FOR ";b$(g);';'; 1 ;"""a"" FOR ";b$(e);';'; 1 ;" TO BE DELETED IS";';"THIS CORRECT";';'; 1 ;" " 1 ;" " 1 );" ";h$(2 1 );" ";g$(3 1 );" ";g$(2 1 );" ";g$(1 1 ';;"ENTER TEAMS IN ";a$ 1 ';';';"TEAM ";b$(e);" REMOVED FROM";';"LEAGUE - NO RESULTS": 1 ';';"RESULT WILL BE PRINTED FOR ALLWEEKS UP TO AND INCLUDING WEEK";';"INPUT" 1 ';';"MATCH HAS NOT BEEN CANCELLED": 1 ';';"MATCH HAS BEEN UNCANCELLED": 1 ';';"MATCH AWARDED TO ";b$(g): 1 ';';"MATCH AWARDED TO ";b$(e): 1 ';';"MARKED AS CANCELLED": 1 ';';"FIXTURES FOR ";b$(n);' 1 ';';"ERROR! MATCH NOT YET SCORED!": 1 ';';"ARE POINTS TO BE ADDED TO";';"TOTAL FOR ";b$(e);"?";';'; 1 ';"TOO MANY TEAMS - MAXIMUM 30";';"TRY AGAIN": 1 ';"THE NUMBERS YOU ENTER MUST BEFOR THE FIRST HALF OF THE SEASON" 1 ';"TEAMS IN ";a$;" ARE";' 1 ';"TEAM NAME TOO LONG - MAXIMUM OF" 1 ';"TEAM ";b;" IS ";b$(b) 1 ';"SCORES FOR FIXTURE WEEK ";m;' 1 ';"RESULTS FOR FIXTURE WEEK ";u;' 1 ';"RESULTS FOR ";b$(e);' 1 ';"PREVIOUS RESULT HAS BEEN DELETED": 1 ';"OUTSTANDING FIXTURES FOR WEEK ";n;' 1 ';"OUTSTANDING FIXTURES FOR WEEK ";n+b;' 1 ';"NUMBER TOO LARGE - MAXIMUM OF";';"999 POINTS ALLOWED """;i$;"""";';"TRY AGAIN": 1 ';"MATCH ALREADY SCORED!" 1 ';"IS THIS CORRECT?";';'; 1 ';"INPUT SECOND WEEK": 1 ';"INPUT NUMBER OF INCORRECT TEAM" 1 ';"INPUT NO OF POINTS FOR WIN": 1 ';"INPUT NO OF POINTS FOR DRAW": 1 ';"INPUT IS NOT AN INTEGER GREATER";';"THAN ZERO """;i$;"""";';"TRY AGAIN": 1 ';"INPUT FIXTURE WEEK NUMBER": 1 ';"INPUT FIRST WEEK": 1 ';"INPUT CORRECT ENTRY" 1 ';"FIXTURES FOR WEEK ";w;' 1 ';"FIXTURES FOR WEEK ";w+b;' 1 ';"FIXTURES FOR WEEK ";n;' 1 ';"FIXTURES FOR WEEK ";n+b;' 1 ';"ENTER NUMBER OF POINTS AWARDED";';"TO LOSING SIDE": 1 ';"ENTER FIXTURE WEEK": 1 ';"ENTER FIXTURE WEEK TO BE PRINTED": 1 ';"ENTER FIXTURE NUMBER": 1 ';"ENTER TEAMS IN ORDER REQUIRED" 1 ';"DO YOU WISH TO RESCORE";'; 1 ';"DO YOU WISH TO CONTINUE WITH";';"WEEK CHANGES?";';'; 1 ';"ARE POINTS AWARDED TO LOSING";';"TEAMS?";'; 1 ';"ALL FIXTURES AND RESULTS FOR";';b$(e);" CANCELLED": 1 "VERIFY *""m"";1;""";z$;"""": 1 "VERIFY """;z$;"""": 1 "UNSCORED WEEK ";uu;" MATCHES ARE:-";';' 1 "TYPE:-";';';" v) TO VERIFY";';" c) TO CONTINUE" 1 "TYPE:-";';';" r) TO RESTART PROGRAM";';" s) TO STOP RUN TYPE" 1 "TYPE:-";';" ""a"" TO SAVE TO MICRODRIVE";" ""b"" TO SAVE TO CASSETTE" 1 "TO WHOM IS MATCH TO BE AWARDED";';';"REPLY :-";';'; 1 "TO VERIFY, REWIND THE TAPE AND TYPE ""v"" WHEN READY TO CONTINUE TYPE ""c""" 1 "TO RETURN TO MAIN MENU TYPE ""r"" TO STOP RUN TYPE ""s""" 1 "TO RESTART PROGRAM TYPE 1 "TO CHANGE HOME AND AWAY FIXTURESENTER FIXTURE WEEK AND NUMBER";';'; 1 "TEAMS IN ";a$;" ARE";';: 1 "TEAM NUMBER TOO LARGE";';"MAXIMUM NUMBER IS ";x;';"TRY AGAIN": 1 "TEAM NUMBER TOO LARGE";';"MAXIMUM NUMBER IS ";a;';"TRY AGAIN": 1 "TAKING ACCOUNT OF SHARED PITCHES" 1 "SAVE FOLLOWS. PLEASE SET UP YOURTAPE RECORDER, AND TYPE ""r"" WHENREADY" 1 "SAVE FOLLOWS. PLEASE SET UP YOURMICRODRIVE 1, AND TYPE ""r"" WHEN READY" 1 "SAVE *""m"";1;""";z$;"""": 1 "SAVE """;z$;"""": 1 "REWIND TAPE AND TYPE": 1 "OUTSTANDING FIXTURES WILL BEPRINTED FOR ALL WEEKS UP TO ANDINCLUDING THE WEEK YOU ENTER": 1 "OTHERWISE TYPE": 1 "MATCH :-";';'; 1 "MARKED AS PLAYED": 1 "LEAGUE TABLE HAS BEEN UPDATED" 1 "INPUT THE FILE NAME YOU WISH TO GIVE TO THE SAVED FILE": 1 "INPUT TEAM NUMBER": 1 "INPUT TEAM ";n 1 "INPUT NUMBER OF TEAM TO BE";';"DELETED": 1 "INPUT NAME OF DIVISION": 1 "FOR WEEKS ";w;" AND ";w+b; 1 "FIXTURES HAVE BEEN GENERATED" 1 "FIXTURE WEEK TOO LARGE";';"MAXIMUM VALUE IS ";b;';"TRY AGAIN": 1 "FIXTURE WEEK TOO LARGE";';"MAXIMUM VALUE IS ";b*2 1 "FIXTURE WEEK NUMBER TOO LARGE";';"MAXIMUM NUMBER IS ";b;';"TRY AGAIN": 1 "FIXTURE WEEK NUMBER TOO LARGE";';"MAXIMUM NUMBER IS ";(b*2 1 "ETC. (SEE ENCLOSED INSTRUCTIONS)";';';' 1 "DO YOU REQUIRE A LEAGUE TABLE?";';'; 1 "DO TEAMS PLAY EACH OTHER MORETHAN ONCE?";';'; 1 "ARE THERE MORE RESULTS FOR THIS";';"WEEK?";';'; 1 "ARE TEAMS CORRECT?";';'; 1 ";';"MAXIMUM NUMBER IS ";x;';"TRY AGAIN": 1 "12 CHARACTERS ALLOWED, TRY AGAIN" 1 "***";b$(n);" POINTS ";j(m,4 1 ""r"" TO STOP RUN TYPE ""s""" 1 " *TEAM REMOVED FROM LEAGUE" 1 " c) TO CONTINUE" 1 " b) TO RERUN VERIFY": 1 " a) TO RERUN SAVE 1 " TEAM REMOVED FROM LEAGUE" 1 " ";b$(t);" NO MATCH" 1 " Team P W F A Pts" 1 " (MATCH NOT YET PLAYED)": 1 " c) TO CONTINUE" 1 " b) TO RERUN VERIFY": 1 " a) TO RERUN SAVE 1 " MATCH CANCELLED": 1 " NO MATCHES SCORED" 1 NUMBER TOO LARGE